﻿<Serializable()> _
Public Class EseparacionVentaDetallePagos

#Region "           Atributos                       "
    Private _idProyecto As Int32
    Private _idEtapa As Int32
    Private _idSeparacionVenta As Int32
    Private _idSeparacionVentaDetalle As Int32
    Private _idSeparacionventaPagos As Int32
    Private _tpoGestion As Int32
    Private _idEdificio As Int32
    Private _descEdificio As String
    Private _idModelo As Int32
    Private _descModelo As String
    Private _idUndInmob As Int32
    Private _descUndInmob As String
    Private _idTpoInmueble As Int32
    Private _descTpoInmueble As String
    Private _fchPago As String
    Private _idFormaPago As Int32
    Private _descFormaPago As String
    Private _montoPago As Decimal
    Private _idMoneda As Int32
    Private _idTpoCambio As Int32

    Private _conInteres As String = "0"
    Private _tea As Decimal
    Private _tim As Decimal

    Private _correlativo As Int32
    Private _fchCancelacion As String
    Private _idMotivo As Int32
    Private _descMotivo As String
    Private _montoCta As Decimal
    Private _idEstadoPago As Int32
    Private _descEstadoPago As String
    Private _idEntidadFin As Int32 = 0
    Private _descEntidadFin As String
    Private _nroDocumento As String
    Private _agencia As String = ""
    Private _sectorista As String = ""
    Private _idSeguimiento As Int32 = 0
    Private _telefono As String = ""
    Private _observacion As String = ""
    Private _idCuenta As Int32
    Private _nroCuenta As String
    Private _vouchet As String
    Private _rutaScanner As String
    Private _estadoCta As Int32
    Private _Verificado As String
    Private _cliente As String
    Private _inmueble As String
    Private _estado As String
    Private _desEstado As String
    Private _idUsuario As Int32
    Private _emailVendedor As String

    Private _amortizacion As Decimal
    Private _interes As Decimal
    Private _cuota As Decimal
    Private _saldo As Decimal
    Private _FechaVerificado As String
    Private _idFormaPagoCobranza As Int32
    Private _vendedor As String
    Private _idPenMor As Int32
#End Region

#Region "           Propiedades                     "
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property idPenMor() As Int32
        Get
            Return _idPenMor
        End Get
        Set(ByVal value As Int32)
            _idPenMor = value
        End Set
    End Property
    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property idSeparacionVenta() As Int32
        Get
            Return _idSeparacionVenta
        End Get
        Set(ByVal value As Int32)
            _idSeparacionVenta = value
        End Set
    End Property
    Public Property idSeparacionVentaDetalle() As Int32
        Get
            Return _idSeparacionVentaDetalle
        End Get
        Set(ByVal value As Int32)
            _idSeparacionVentaDetalle = value
        End Set
    End Property
    Public Property idSeparacionVentaPago() As Int32
        Get
            Return _idSeparacionventaPagos
        End Get
        Set(ByVal value As Int32)
            _idSeparacionventaPagos = value
        End Set
    End Property
    Public Property tpoGestion() As Int32
        Get
            Return _tpoGestion
        End Get
        Set(ByVal value As Int32)
            _tpoGestion = value
        End Set
    End Property
    Public Property idEdificio() As Int32
        Get
            Return _idEdificio
        End Get
        Set(ByVal value As Int32)
            _idEdificio = value
        End Set
    End Property
    Public Property descEdificio() As String
        Get
            Return _descEdificio
        End Get
        Set(ByVal value As String)
            _descEdificio = value
        End Set
    End Property
    Public Property idModelo() As Int32
        Get
            Return _idModelo
        End Get
        Set(ByVal value As Int32)
            _idModelo = value
        End Set
    End Property
    Public Property descModelo() As String
        Get
            Return _descModelo
        End Get
        Set(ByVal value As String)
            _descModelo = value
        End Set
    End Property
    Public Property idUndInmob() As Int32
        Get
            Return _idUndInmob
        End Get
        Set(ByVal value As Int32)
            _idUndInmob = value
        End Set
    End Property
    Public Property descUndInmob() As String
        Get
            Return _descUndInmob
        End Get
        Set(ByVal value As String)
            _descUndInmob = value
        End Set
    End Property
    Public Property idTpoInmueble() As Int32
        Get
            Return _idTpoInmueble
        End Get
        Set(ByVal value As Int32)
            _idTpoInmueble = value
        End Set
    End Property
    Public Property descTpoInmueble() As String
        Get
            Return _descTpoInmueble
        End Get
        Set(ByVal value As String)
            _descTpoInmueble = value
        End Set
    End Property
    Public Property fchPago() As String
        Get
            Return _fchPago
        End Get
        Set(ByVal value As String)
            _fchPago = value
        End Set
    End Property
    Public Property idFormaPago() As Int32
        Get
            Return _idFormaPago
        End Get
        Set(ByVal value As Int32)
            _idFormaPago = value
        End Set
    End Property
    Public Property descFormaPago() As String
        Get
            Return _descFormaPago
        End Get
        Set(ByVal value As String)
            _descFormaPago = value
        End Set
    End Property
    Public Property montoPago() As Decimal
        Get
            Return _montoPago
        End Get
        Set(ByVal value As Decimal)
            _montoPago = value
        End Set
    End Property    
    Public Property idMoneda() As Int32
        Get
            Return _idMoneda
        End Get
        Set(ByVal value As Int32)
            _idMoneda = value
        End Set
    End Property
    Public Property idTpoCambio() As Int32
        Get
            Return _idTpoCambio
        End Get
        Set(ByVal value As Int32)
            _idTpoCambio = value
        End Set
    End Property

    Public Property conInteres() As String
        Get
            Return _conInteres
        End Get
        Set(ByVal value As String)
            _conInteres = value
        End Set
    End Property
    Public Property tea() As Decimal
        Get
            Return _tea
        End Get
        Set(ByVal value As Decimal)
            _tea = value
        End Set
    End Property
    Public Property tim() As Decimal
        Get
            Return _tim
        End Get
        Set(ByVal value As Decimal)
            _tim = value
        End Set
    End Property

    Public Property correlativo() As Int32
        Get
            Return _correlativo
        End Get
        Set(ByVal value As Int32)
            _correlativo = value
        End Set
    End Property
    Public Property fchCancelacion() As String
        Get
            Return _fchCancelacion
        End Get
        Set(ByVal value As String)
            _fchCancelacion = value
        End Set
    End Property
    Public Property idMotivo() As Int32
        Get
            Return _idMotivo
        End Get
        Set(ByVal value As Int32)
            _idMotivo = value
        End Set
    End Property
    Public Property descMotivo() As String
        Get
            Return _descMotivo
        End Get
        Set(ByVal value As String)
            _descMotivo = value
        End Set
    End Property
    Public Property cliente() As String
        Get
            Return _cliente
        End Get
        Set(ByVal value As String)
            _cliente = value
        End Set
    End Property
    Public Property emailVendedor() As String
        Get
            Return _emailVendedor
        End Get
        Set(ByVal value As String)
            _emailVendedor = value
        End Set
    End Property
    Public Property vendedor() As String
        Get
            Return _vendedor
        End Get
        Set(ByVal value As String)
            _vendedor = value
        End Set
    End Property
    Public Property inmueble() As String
        Get
            Return _inmueble
        End Get
        Set(ByVal value As String)
            _inmueble = value
        End Set
    End Property
    'Public Property montoCta() As Decimal
    '    Get
    '        Return _montoCta
    '    End Get
    '    Set(ByVal value As Decimal)
    '        _montoCta = value
    '    End Set
    'End Property
    Public Property idEstadoPago() As Int32
        Get
            Return _idEstadoPago
        End Get
        Set(ByVal value As Int32)
            _idEstadoPago = value
        End Set
    End Property
    Public Property descEstadoPago() As String
        Get
            Return _descEstadoPago
        End Get
        Set(ByVal value As String)
            _descEstadoPago = value
        End Set
    End Property
    Public Property idEntidadFin() As Int32
        Get
            Return _idEntidadFin
        End Get
        Set(ByVal value As Int32)
            _idEntidadFin = value
        End Set
    End Property
    Public Property descEntidadFin() As String
        Get
            Return _descEntidadFin
        End Get
        Set(ByVal value As String)
            _descEntidadFin = value
        End Set
    End Property
    Public Property nroDocumento() As String
        Get
            Return _nroDocumento
        End Get
        Set(ByVal value As String)
            _nroDocumento = value
        End Set
    End Property
    Public Property agencia() As String
        Get
            Return _agencia
        End Get
        Set(ByVal value As String)
            _agencia = value
        End Set
    End Property
    Public Property sectorista() As String
        Get
            Return _sectorista
        End Get
        Set(ByVal value As String)
            _sectorista = value
        End Set
    End Property
    Public Property idSeguimiento() As Int32
        Get
            Return _idSeguimiento
        End Get
        Set(ByVal value As Int32)
            _idSeguimiento = value
        End Set
    End Property
    Public Property telefono() As String
        Get
            Return _telefono
        End Get
        Set(ByVal value As String)
            _telefono = value
        End Set
    End Property
    Public Property observacion() As String
        Get
            Return _observacion
        End Get
        Set(ByVal value As String)
            _observacion = value
        End Set
    End Property
    Public Property idCuenta() As Int32
        Get
            Return _idCuenta
        End Get
        Set(ByVal value As Int32)
            _idCuenta = value
        End Set
    End Property
    Public Property nroCuenta() As String
        Get
            Return _nroCuenta
        End Get
        Set(ByVal value As String)
            _nroCuenta = value
        End Set
    End Property
    Public Property vouchet() As String
        Get
            Return _vouchet
        End Get
        Set(ByVal value As String)
            _vouchet = value
        End Set
    End Property
    Public Property rutaScanner() As String
        Get
            Return _rutaScanner
        End Get
        Set(ByVal value As String)
            _rutaScanner = value
        End Set
    End Property
    Public Property Verificado() As String
        Get
            Return _Verificado
        End Get
        Set(ByVal value As String)
            _Verificado = value
        End Set
    End Property

    Public Property estadoCta() As Int32
        Get
            Return _estadoCta
        End Get
        Set(ByVal value As Int32)
            _estadoCta = value
        End Set
    End Property

    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property desEstado() As String
        Get
            Return _desEstado
        End Get
        Set(ByVal value As String)
            _desEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property

    Public Property amortizacion() As Decimal
        Get
            Return _amortizacion
        End Get
        Set(ByVal value As Decimal)
            _amortizacion = value
        End Set
    End Property
    Public Property interes() As Decimal
        Get
            Return _interes
        End Get
        Set(ByVal value As Decimal)
            _interes = value
        End Set
    End Property
    Public Property cuota() As Decimal
        Get
            Return _cuota
        End Get
        Set(ByVal value As Decimal)
            _cuota = value
        End Set
    End Property
    Public Property saldo() As Decimal
        Get
            Return _saldo
        End Get
        Set(ByVal value As Decimal)
            _saldo = value
        End Set
    End Property
    Public Property FechaVerificado() As String
        Get
            Return _FechaVerificado
        End Get
        Set(ByVal value As String)
            _FechaVerificado = value
        End Set
    End Property
    Public Property idFormaPagoCobranza() As String
        Get
            Return _idFormaPagoCobranza
        End Get
        Set(ByVal value As String)
            _idFormaPagoCobranza = value
        End Set
    End Property

#End Region

#Region "           Propiedades Avanzadas           "
    Public ReadOnly Property idMotivoSeparacionVentaPagos() As String
        Get
            Return idMotivo.ToString + "," + idSeparacionVenta.ToString + "," + idSeparacionVentaPago.ToString
        End Get
    End Property
    Public ReadOnly Property idSeparacionVentaPagos() As String
        Get
            Return idSeparacionVenta.ToString + "," + idSeparacionVentaPago.ToString
        End Get
    End Property
    Public ReadOnly Property rutaScannerDisplay() As String
        Get
            If rutaScanner.Length > 0 Then
                Return rutaScanner.Substring(rutaScanner.IndexOf("@") + 1, rutaScanner.Length - rutaScanner.IndexOf("@") - 1)
            Else
                Return rutaScanner
            End If
        End Get
    End Property
#End Region

#Region "           Propiedades Avanzadas Wilson           "

    Private _Estado_Pago As String
    Public Property Estado_Pago() As String
        Get
            Return _Estado_Pago
        End Get
        Set(ByVal value As String)
            _Estado_Pago = value
        End Set
    End Property

    Private _Tipo_Cuota As String
    Public Property Tipo_Cuota() As String
        Get
            Return _Tipo_Cuota
        End Get
        Set(ByVal value As String)
            _Tipo_Cuota = value
        End Set
    End Property

    Private _DNI As String
    Public Property DNI() As String
        Get
            Return _DNI
        End Get
        Set(ByVal value As String)
            _DNI = value
        End Set
    End Property

    Private _cliente_DNI As String
    Public Property cliente_DNI() As String
        Get
            Return _cliente_DNI
        End Get
        Set(ByVal value As String)
            _cliente_DNI = value
        End Set
    End Property

    Private _Inmuebles As String
    Public Property Inmuebles() As String
        Get
            Return _Inmuebles
        End Get
        Set(ByVal value As String)
            _Inmuebles = value
        End Set
    End Property

    Private _Proyecto As String
    Public Property Proyecto() As String
        Get
            Return _Proyecto
        End Get
        Set(ByVal value As String)
            _Proyecto = value
        End Set
    End Property

    Private _Etapa As String
    Public Property Etapa() As String
        Get
            Return _Etapa
        End Get
        Set(ByVal value As String)
            _Etapa = value
        End Set
    End Property

    Private _Proyecto_Etapa As String
    Public Property Proyecto_Etapa() As String
        Get
            Return _Proyecto_Etapa
        End Get
        Set(ByVal value As String)
            _Proyecto_Etapa = value
        End Set
    End Property

    Private _Monto_Pago As String
    Public Property Monto_Pago() As String
        Get
            Return _Monto_Pago
        End Get
        Set(ByVal value As String)
            _Monto_Pago = value
        End Set
    End Property

    Private _TotaL_Couta_Ini As String
    Public Property TotaL_Couta_Ini() As String
        Get
            Return _TotaL_Couta_Ini
        End Get
        Set(ByVal value As String)
            _TotaL_Couta_Ini = value
        End Set
    End Property

    Private _TotaL_Financionamiento As String
    Public Property TotaL_Financionamiento() As String
        Get
            Return _TotaL_Financionamiento
        End Get
        Set(ByVal value As String)
            _TotaL_Financionamiento = value
        End Set
    End Property

    Private _Total_Separacion As String
    Public Property Total_Separacion() As String
        Get
            Return _Total_Separacion
        End Get
        Set(ByVal value As String)
            _Total_Separacion = value
        End Set
    End Property

    Private _Pago As String
    Public Property Pago() As String
        Get
            Return _Pago
        End Get
        Set(ByVal value As String)
            _Pago = value
        End Set
    End Property


    Private _Gestion As String
    Public Property Gestion() As String
        Get
            Return _Gestion
        End Get
        Set(ByVal value As String)
            _Gestion = value
        End Set
    End Property

    Private _Telefonos As String
    Public Property Telefonos() As String
        Get
            Return _Telefonos
        End Get
        Set(ByVal value As String)
            _Telefonos = value
        End Set
    End Property

    Private _fchVencimiento As String
    Public Property fchVencimiento() As String
        Get
            Return _fchVencimiento
        End Get
        Set(ByVal value As String)
            _fchVencimiento = value
        End Set
    End Property

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idSeparacionVentaDetalle As Int32, _
                   ByVal idSeparacionventaPagos As Int32, ByVal idEdiMzn As Int32, ByVal descEdificio As String, ByVal idModelo As Int32, _
                   ByVal descModelo As String, ByVal idUndInmob As Int32, ByVal descUndInmob As String, ByVal idTpoInmueble As Int32, _
                   ByVal descTpoInmueble As String, ByVal fchPago As String, ByVal montoPago As Decimal, ByVal idMoneda As Int32, _
                   ByVal descMoneda As String, ByVal idFormaPago As Int32, ByVal descFormaPago As String, ByVal fchCancelacion As String, _
                   ByVal idTpoCambio As Int32, ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, ByVal idCuenta As Int32, _
                   ByVal nroCuenta As String, ByVal vouchet As String, ByVal rutaScanner As String, ByVal estadoCta As Int32, _
                   ByVal observacion As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idEdificio = idEdiMzn
        Me.descEdificio = descEdificio
        Me.idModelo = idModelo
        Me.descModelo = descModelo
        Me.idUndInmob = idUndInmob
        Me.descUndInmob = descUndInmob
        Me.idTpoInmueble = idTpoInmueble
        Me.descTpoInmueble = descTpoInmueble
    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idSeparacionventaPagos As Int32, _
               ByVal idEdiMzn As Int32, ByVal idModelo As Int32, ByVal idUndInmob As Int32, ByVal idTpoInmueble As Int32, _
               ByVal fchPago As String, ByVal idFormaPago As Int32, ByVal montoPago As Decimal, ByVal idMoneda As Int32, _
               ByVal idTpoCambio As Int32, ByVal conInteres As String, ByVal tea As Decimal, ByVal tim As Decimal, _
               ByVal correlativo As Int32, ByVal fchCancelacion As String, ByVal idMotivo As Int32, _
               ByVal amortizacion As Decimal, ByVal interes As Decimal, ByVal cuota As Decimal, ByVal saldo As Decimal, _
               ByVal idEstadoPago As Int32, ByVal idEntidadFin As Int32, ByVal agencia As String, ByVal sectorista As String, _
               ByVal idSeguimiento As Int32, ByVal telefono As String, ByVal observacion As String, ByVal idCuenta As Int32, _
               ByVal nroCuenta As String, ByVal vouchet As String, ByVal rutaScanner As String, ByVal estadoCta As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idSeparacionVentaPago = idSeparacionVentaPago
        Me.idEdificio = idEdiMzn
        Me.idModelo = idModelo
        Me.idUndInmob = idUndInmob
        Me.idTpoInmueble = idTpoInmueble
        Me.fchPago = fchPago
        Me.idFormaPago = idFormaPago
        Me.montoPago = montoPago
        Me.idMoneda = idMoneda
        Me.idTpoCambio = idTpoCambio
        Me.conInteres = conInteres
        Me.tea = tea
        Me.tim = tim
        Me.correlativo = correlativo
        Me.fchCancelacion = fchCancelacion
        Me.idMotivo = idMotivo
        Me.descMotivo = IIf(idMotivo = 1, "CUOTA INICIAL", "FINANCIAMIENTO")
        Me.amortizacion = amortizacion
        Me.interes = interes
        Me.cuota = cuota
        Me.saldo = saldo
        Me.idEstadoPago = idEstadoPago
        Me.descEstadoPago = IIf(idEstadoPago = 1, "PENDIENTE", "CANCELADO")
        Me.idEntidadFin = idEntidadFin
        Me.agencia = agencia
        Me.sectorista = sectorista
        Me.idSeguimiento = idSeguimiento
        Me.telefono = telefono
        Me.observacion = observacion
        Me.idCuenta = idCuenta
        Me.nroCuenta = nroCuenta
        Me.vouchet = vouchet
        Me.rutaScanner = rutaScanner
        Me.estadoCta = Me.estadoCta
       
    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idSeparacionventaPagos As Int32, _
                   ByVal idEdiMzn As Int32, ByVal idModelo As Int32, ByVal idUndInmob As Int32, ByVal idTpoInmueble As Int32, _
                   ByVal fchPago As String, ByVal idFormaPago As Int32, ByVal montoPago As Decimal, ByVal idMoneda As Int32, _
                   ByVal idTpoCambio As Int32, ByVal conInteres As String, ByVal tea As Decimal, ByVal tim As Decimal, _
                   ByVal correlativo As Int32, ByVal fchCancelacion As String, ByVal idMotivo As Int32, _
                   ByVal amortizacion As Decimal, ByVal interes As Decimal, ByVal cuota As Decimal, ByVal saldo As Decimal, _
                   ByVal idEstadoPago As Int32, ByVal idEntidadFin As Int32, ByVal agencia As String, ByVal sectorista As String, _
                   ByVal idSeguimiento As Int32, ByVal telefono As String, ByVal observacion As String, ByVal idCuenta As Int32, _
                   ByVal nroCuenta As String, ByVal vouchet As String, ByVal rutaScanner As String, ByVal estadoCta As Int32, _
                   ByVal verificado As String, ByVal FechaVerificado As String, ByVal idFormaPagoCobranza As Int32, ByVal nroDocumento As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idSeparacionVentaPago = idSeparacionVentaPago
        Me.idEdificio = idEdiMzn
        Me.idModelo = idModelo
        Me.idUndInmob = idUndInmob
        Me.idTpoInmueble = idTpoInmueble
        Me.fchPago = fchPago
        Me.idFormaPago = idFormaPago
        Me.montoPago = montoPago
        Me.idMoneda = idMoneda
        Me.idTpoCambio = idTpoCambio
        Me.conInteres = conInteres
        Me.tea = tea
        Me.tim = tim
        Me.correlativo = correlativo
        Me.fchCancelacion = fchCancelacion
        Me.idMotivo = idMotivo
        Me.descMotivo = IIf(idMotivo = 1, "CUOTA INICIAL", "FINANCIAMIENTO")
        Me.amortizacion = amortizacion
        Me.interes = interes
        Me.cuota = cuota
        Me.saldo = saldo
        Me.idEstadoPago = idEstadoPago
        Me.descEstadoPago = IIf(idEstadoPago = 1, "PENDIENTE", "CANCELADO")
        Me.idEntidadFin = idEntidadFin
        Me.agencia = agencia
        Me.sectorista = sectorista
        Me.idSeguimiento = idSeguimiento
        Me.telefono = telefono
        Me.observacion = observacion
        Me.idCuenta = idCuenta
        Me.nroCuenta = nroCuenta
        Me.vouchet = vouchet
        Me.rutaScanner = rutaScanner
        Me.estadoCta = Me.estadoCta
        Me.Verificado = verificado
        Me.FechaVerificado = FechaVerificado
        Me.idFormaPagoCobranza = idFormaPagoCobranza
        Me.nroDocumento = nroDocumento
    End Sub

    '-------   MENU COBRANZA / REPORTE DE PENDIENTE DE PAGO DETALLE     -----------'
    Public Sub New(ByVal idSeparacionVenta As Int32, ByVal idSeparacionVentaPago As Int32, ByVal tpoGestion As Int32, ByVal idMotivo As Int32, _
                   ByVal descMotivo As String, ByVal fchPago As String, ByVal correlativo As Int32, ByVal fchCancelacion As String, ByVal montoPago As Double, _
                   ByVal cuota As Double, ByVal idMoneda As Int32, ByVal idFormaPago As Int32, ByVal descFormaPago As String, ByVal nroDocumento As String, _
                   ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, ByVal idCuenta As Int32, ByVal nroCuenta As String, ByVal vouchet As String, _
                   ByVal rutaScanner As String, ByVal observacion As String, ByVal estadoPago As Int32, ByVal descEstadoPago As String, ByVal Verificado As String)
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idSeparacionVentaPago = idSeparacionVentaPago
        Me.tpoGestion = tpoGestion
        Me.idMotivo = idMotivo
        Me.descMotivo = descMotivo
        Me.fchPago = fchPago
        Me.correlativo = correlativo
        Me.fchCancelacion = fchCancelacion
        Me.montoPago = montoPago
        Me.cuota = cuota
        Me.idMoneda = idMoneda
        Me.idFormaPago = idFormaPago
        Me.descFormaPago = descFormaPago
        Me.nroDocumento = nroDocumento
        Me.idEntidadFin = idEntidadFin
        Me.descEntidadFin = descEntidadFin
        Me.idCuenta = idCuenta
        Me.nroCuenta = nroCuenta
        Me.vouchet = vouchet
        Me.rutaScanner = rutaScanner.Trim
        Me.observacion = observacion
        Me.idEstadoPago = estadoPago
        Me.descEstadoPago = descEstadoPago
        Me.Verificado = Verificado
    End Sub
    Public Sub New(ByVal idSeparacionVenta As Int32, ByVal idEtapa As Int32, ByVal idProyecto As Int32, ByVal idSeparacionVentaPago As Int32, ByVal cliente As String, ByVal Inmueble As String, _
                   ByVal idMotivo As Int32, _
                   ByVal descMotivo As String, ByVal fchPago As String, ByVal correlativo As Int32, ByVal fchCancelacion As String, ByVal montoPago As Double, _
                   ByVal cuota As Double, ByVal idMoneda As Int32, ByVal idFormaPago As Int32, ByVal descFormaPago As String, ByVal nroDocumento As String, _
                   ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, ByVal idCuenta As Int32, ByVal nroCuenta As String, ByVal vouchet As String, _
                   ByVal rutaScanner As String, ByVal observacion As String, ByVal estadoPago As Int32, ByVal descEstadoPago As String, ByVal Verificado As String, _
                   ByVal tpoGestion As Int32, ByVal emailVendedor As String, ByVal vendedor As String)
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idEtapa = idEtapa
        Me.idProyecto = idProyecto
        'Me.idSeparacionVenta = idSeparacionVenta
        Me.idSeparacionVentaPago = idSeparacionVentaPago
        Me.cliente = cliente
        Me.inmueble = Inmueble
        'Me.tpoGestion = tpoGestion
        Me.idMotivo = idMotivo
        Me.descMotivo = descMotivo
        Me.fchPago = fchPago
        Me.correlativo = correlativo
        Me.fchCancelacion = fchCancelacion
        Me.montoPago = montoPago
        Me.cuota = cuota
        Me.idMoneda = idMoneda
        Me.idFormaPago = idFormaPago
        Me.descFormaPago = descFormaPago
        Me.nroDocumento = nroDocumento
        Me.idEntidadFin = idEntidadFin
        Me.descEntidadFin = descEntidadFin
        Me.idCuenta = idCuenta
        Me.nroCuenta = nroCuenta
        Me.vouchet = vouchet
        Me.rutaScanner = rutaScanner.Trim
        Me.observacion = observacion
        Me.idEstadoPago = estadoPago
        Me.descEstadoPago = descEstadoPago
        Me.Verificado = Verificado
        Me.tpoGestion = tpoGestion
        Me.emailVendedor = emailVendedor
        Me.vendedor = vendedor
    End Sub
    '---------------------------------------'
    Public Sub New(ByVal idSeparacionVenta As Int32, ByVal idSeparacionVentaPago As Int32, ByVal tpoGestion As Int32, ByVal idMotivo As Int32, _
                   ByVal descMotivo As String, ByVal fchPago As String, ByVal correlativo As Int32, ByVal fchCancelacion As String, ByVal montoPago As Double, _
                   ByVal cuota As Double, ByVal idMoneda As Int32, ByVal idFormaPago As Int32, ByVal descFormaPago As String, ByVal nroDocumento As String, _
                   ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, ByVal idCuenta As Int32, ByVal nroCuenta As String, ByVal vouchet As String, _
                   ByVal rutaScanner As String, ByVal observacion As String, ByVal estadoPago As Int32, ByVal descEstadoPago As String, ByVal idPenMor As Int32)
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idSeparacionVentaPago = idSeparacionVentaPago
        Me.tpoGestion = tpoGestion
        Me.idMotivo = idMotivo
        Me.descMotivo = descMotivo
        Me.fchPago = fchPago
        Me.correlativo = correlativo
        Me.fchCancelacion = fchCancelacion
        Me.montoPago = montoPago
        Me.cuota = cuota
        Me.idMoneda = idMoneda
        Me.idFormaPago = idFormaPago
        Me.descFormaPago = descFormaPago
        Me.nroDocumento = nroDocumento
        Me.idEntidadFin = idEntidadFin
        Me.descEntidadFin = descEntidadFin
        Me.idCuenta = idCuenta
        Me.nroCuenta = nroCuenta
        Me.vouchet = vouchet
        Me.rutaScanner = rutaScanner.Trim
        Me.observacion = observacion
        Me.idEstadoPago = estadoPago
        Me.descEstadoPago = descEstadoPago
        Me.idPenMor = idPenMor
    End Sub
    Public Sub New(ByVal idSeparacionVenta As Int32, ByVal idSeparacionVentaPago As Int32, ByVal tpoGestion As Int32, ByVal idMotivo As Int32, _
                   ByVal descMotivo As String, ByVal fchPago As String, ByVal correlativo As Int32, ByVal fchCancelacion As String, ByVal montoPago As Double, _
                   ByVal cuota As Double, ByVal idMoneda As Int32, ByVal idFormaPago As Int32, ByVal descFormaPago As String, ByVal nroDocumento As String, _
                   ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, ByVal idCuenta As Int32, ByVal nroCuenta As String, ByVal vouchet As String, _
                   ByVal rutaScanner As String, ByVal observacion As String, ByVal estadoPago As Int32, ByVal descEstadoPago As String)
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idSeparacionVentaPago = idSeparacionVentaPago
        Me.tpoGestion = tpoGestion
        Me.idMotivo = idMotivo
        Me.descMotivo = descMotivo
        Me.fchPago = fchPago
        Me.correlativo = correlativo
        Me.fchCancelacion = fchCancelacion
        Me.montoPago = montoPago
        Me.cuota = cuota
        Me.idMoneda = idMoneda
        Me.idFormaPago = idFormaPago
        Me.descFormaPago = descFormaPago
        Me.nroDocumento = nroDocumento
        Me.idEntidadFin = idEntidadFin
        Me.descEntidadFin = descEntidadFin
        Me.idCuenta = idCuenta
        Me.nroCuenta = nroCuenta
        Me.vouchet = vouchet
        Me.rutaScanner = rutaScanner.Trim
        Me.observacion = observacion
        Me.idEstadoPago = estadoPago
        Me.descEstadoPago = descEstadoPago
    End Sub

    '--------- Reporte Consolidado -----------------------------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idSeparacionVentaPago As Int32, _
                   ByVal tpoGestion As Int32, ByVal idMotivo As Int32, _
                   ByVal descMotivo As String, ByVal fchPago As String, ByVal correlativo As Int32, ByVal fchCancelacion As String, ByVal montoPago As Double, _
                   ByVal cuota As Double, ByVal idMoneda As Int32, ByVal idFormaPago As Int32, ByVal descFormaPago As String, ByVal nroDocumento As String, _
                   ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, ByVal idCuenta As Int32, ByVal nroCuenta As String, ByVal vouchet As String, _
                   ByVal rutaScanner As String, ByVal observacion As String, ByVal estadoPago As Int32, ByVal descEstadoPago As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idSeparacionVentaPago = idSeparacionVentaPago
        Me.tpoGestion = tpoGestion
        Me.idMotivo = idMotivo
        Me.descMotivo = descMotivo
        Me.fchPago = fchPago
        Me.correlativo = correlativo
        Me.fchCancelacion = fchCancelacion
        Me.montoPago = montoPago
        Me.cuota = cuota
        Me.idMoneda = idMoneda
        Me.idFormaPago = idFormaPago
        Me.descFormaPago = descFormaPago
        Me.nroDocumento = nroDocumento
        Me.idEntidadFin = idEntidadFin
        Me.descEntidadFin = descEntidadFin
        Me.idCuenta = idCuenta
        Me.nroCuenta = nroCuenta
        Me.vouchet = vouchet
        Me.rutaScanner = rutaScanner.Trim
        Me.observacion = observacion
        Me.idEstadoPago = estadoPago
        Me.descEstadoPago = descEstadoPago
    End Sub
#End Region

#Region "           Contructores Wilson                    "

    Public Sub New(ByVal fchCancelacion As String, ByVal fchVencimiento As String, ByVal Tipo_Cuota As String, ByVal correlativo As Integer, _
               ByVal Monto_Pago As String, ByVal descFormaPago As String, ByVal vouchet As String, ByVal nroDocumento As String, _
               ByVal Estado_Pago As String, ByVal cliente As String, ByVal DNI As String, ByVal cliente_DNI As String, _
               ByVal Inmuebles As String, ByVal Proyecto As String, ByVal Etapa As String, ByVal Proyecto_Etapa As String, _
               ByVal TotaL_Couta_Ini As String, ByVal TotaL_Financionamiento As String, ByVal vendedor As String, ByVal idSeparacionVenta As Integer, ByVal Total_Separacion As String)
        Me.fchCancelacion = fchCancelacion
        Me.fchVencimiento = fchVencimiento
        Me.Tipo_Cuota = Tipo_Cuota
        Me.correlativo = correlativo
        Me.Monto_Pago = Monto_Pago
        Me.descFormaPago = descFormaPago
        Me.vouchet = vouchet
        Me.nroDocumento = nroDocumento
        Me.Estado_Pago = Estado_Pago
        Me.cliente = cliente
        Me.DNI = DNI
        Me.cliente_DNI = cliente_DNI
        Me.Inmuebles = Inmuebles
        Me.Proyecto = Proyecto
        Me.Etapa = Etapa
        Me.Proyecto_Etapa = Proyecto_Etapa
        Me.TotaL_Couta_Ini = TotaL_Couta_Ini
        Me.TotaL_Financionamiento = TotaL_Financionamiento
        Me.vendedor = vendedor
        Me.idSeparacionVenta = idSeparacionVenta
        Me.Total_Separacion = Total_Separacion
    End Sub

    Public Sub New(ByVal fchVencimiento As String, ByVal Pago As String, ByVal Gestion As String, ByVal Tipo_Cuota As String, ByVal correlativo As Integer, _
               ByVal Monto_Pago As String, ByVal cliente As String, ByVal DNI As String, ByVal cliente_DNI As String, _
               ByVal Telefonos As String, ByVal Inmuebles As String, ByVal Proyecto As String, ByVal Etapa As String, ByVal Proyecto_Etapa As String, _
               ByVal TotaL_Couta_Ini As String, ByVal TotaL_Financionamiento As String, ByVal vendedor As String, ByVal idSeparacionVenta As Integer)
        Me.fchVencimiento = fchVencimiento
        Me.Pago = Pago
        Me.Gestion = Gestion
        Me.Tipo_Cuota = Tipo_Cuota
        Me.correlativo = correlativo
        Me.Monto_Pago = Monto_Pago
        Me.cliente = cliente
        Me.DNI = DNI
        Me.cliente_DNI = cliente_DNI
        Me.Telefonos = Telefonos
        Me.Inmuebles = Inmuebles
        Me.Proyecto = Proyecto
        Me.Etapa = Etapa
        Me.Proyecto_Etapa = Proyecto_Etapa
        Me.TotaL_Couta_Ini = TotaL_Couta_Ini
        Me.TotaL_Financionamiento = TotaL_Financionamiento
        Me.vendedor = vendedor
        Me.idSeparacionVenta = idSeparacionVenta
    End Sub


#End Region

End Class
